home *** CD-ROM | disk | FTP | other *** search
/ Canon Creative 3 / Canon Creative 3 - Disc 2.iso / designe / IMAGES / ICONS / PENCIL.OPD < prev    next >
Encoding:
Text File  |  1997-05-29  |  3.3 KB  |  126 lines
  1. #[document 65.6818 127.982 146.129 199.652
  2. static oe="odd_even",nzw="nonzero_winding",wc="winding_counting";
  3. static stroked="stroked";
  4. static vert="vertical",horz="horizontal";
  5. static miter="miter",bevel="bevel",round="round";
  6. static butt="butt",proj="projected";
  7. #[page
  8. auto m=move,l=line,c=curve;
  9. auto p;
  10. gc_cspace("Lab");
  11. gc_color(100.0,0.0,0.0);
  12. rect(0,0,0,0);
  13. auto ng;ng=draw(path());
  14. auto s=array(ng);
  15. m(94.836625,184.652102);
  16. l(127.136949,157.316158);
  17. finish_edge();
  18. p=path();
  19. gc_draw_style(stroked);
  20. gc_line_join_style(miter);
  21. gc_stroke_width(3.000000);
  22. gc_font_draw_style(0);
  23. gc_color(0.000000,0.000000,0.000000);
  24. s[0]=draw(p);
  25. m(121.131392,148.855032);
  26. l(127.948515,158.292441);
  27. finish_edge();
  28. p=path();
  29. gc_stroke_width(2.500000);
  30. s[1]=draw(p);
  31. s[0]:=s[1];
  32. m(88.506410,177.167260);
  33. l(95.161251,185.302958);
  34. c(95.161251,185.302958,96.459756,181.235109,94.674311,178.957114);
  35. c(93.865600,177.925304,93.538119,177.329974,91.590361,176.516404);
  36. c(90.620905,176.111467,88.506410,175.865549,88.506410,175.865549);
  37. finish_edge();
  38. p=path();
  39. gc_draw_style(nzw);
  40. s[1]=draw(p);
  41. s[0]:=s[1];
  42. m(122.592180,149.343174);
  43. l(133.629477,145.926181);
  44. l(127.948515,156.713084);
  45. l(122.592180,149.343174);
  46. close_edge();
  47. p=path();
  48. gc_draw_style(stroked);
  49. s[1]=draw(p);
  50. s[0]:=s[1];
  51. m(128.597768,147.390606);
  52. l(131.032466,149.994029);
  53. l(133.304850,146.414322);
  54. l(128.597768,147.390606);
  55. close_edge();
  56. p=path();
  57. gc_draw_style(nzw);
  58. s[1]=draw(p);
  59. s[0]:=s[1];
  60. m(88.181784,176.841832);
  61. l(122.592180,150.482171);
  62. finish_edge();
  63. p=path();
  64. s[1]=draw(p);
  65. gc_draw_style(stroked);
  66. gc_stroke_width(4.500000);
  67. s[1]:=draw(p);
  68. s[0]over=s[1];
  69. static coladjfunc(a, inp, outp)
  70. {
  71.     auto i;
  72.     auto j;
  73.     auto k;
  74.     auto getpos;
  75.     auto coeffs;
  76.     auto tmp;
  77.     getpos = 0;
  78.     for (i = 0; i < 4; i++)
  79.     {
  80.         if (a.en_flags[i] && a.curves[getpos] != NULL)
  81.         {
  82.             if (inp[i] < a.curves[getpos].cutoffs[0])
  83.                 outp[a.swap_flags[i]] = a.curves[getpos].yends[0];
  84.             else if (inp[i] > a.curves[getpos].cutoffs[($nels)(a.curves[getpos].cutoffs)-1])
  85.                 outp[a.swap_flags[i]] = a.curves[getpos].yends[1];
  86.             else
  87.             {
  88.                 k = j = (($nels)(a.curves[getpos].cutoffs) - 1) / 2;
  89.                 while (inp[i] < a.curves[getpos].cutoffs[k] || inp[i] > a.curves[getpos].cutoffs[k + 1])
  90.                 {
  91.                     j = (j + 1) / 2;
  92.                     if (inp[i] < a.curves[getpos].cutoffs[k])
  93.                         k-=j;
  94.                     else
  95.                         k+=j;
  96.                 }
  97.                 coeffs = a.curves[getpos].coeffs;
  98.                 tmp = coeffs[4 * k + 3];
  99.                 for (j = 2; j >= 0; j--)
  100.                     tmp = tmp * inp[i] + coeffs[4 * k + j];
  101.                 outp[a.swap_flags[i]] = tmp;
  102.             }
  103.             getpos++;
  104.          }
  105.     }
  106. }
  107. auto map;
  108. map=make_cmap("Lab",NULL,"Lab",NULL,coladjfunc,[struct
  109.     curves=[array
  110.         [struct
  111.             coeffs=[array 42.99998900,-0.88000000,0.00000000,0.00000000,],
  112.             cutoffs=[array 47.72727200,48.86363600,],
  113.             yends=[array 1.00000000,0.00000000,]
  114.         ],
  115.     ],
  116.     en_flags=[array 1, 0, 0, 0],
  117.     swap_flags=[array 3, 0, 0, 0]
  118. ],
  119. [set 0,],
  120. [set 3,]);
  121. s[0]=cmap(s[0],map,1);
  122. page:=s[0];
  123. s=NULL;
  124. #]page
  125. #]document
  126.